user Function doDataSx(cData)
/* 20120419 */
	cDataRet := Subs(cData,7,2)+'/'+Subs(cData,5,2)+'/'+Subs(cData,1,4)
Return cDataRet